home *** CD-ROM | disk | FTP | other *** search
/ The Final Frontier 8 / Final Frontier 8 (Disk 1 of 4).adf / S / Startup-Sequence next >
Encoding:
Text File  |  1995-02-21  |  1.7 KB  |  64 lines
  1. ; LCARS Release 2.2 System Startup
  2. ; L.B. Elliott, Feb '95
  3. ; This version for Issue 8
  4. ; >2.0 Resident commands not with explicit path
  5.  
  6. NoBorder                    ; Borderless CLI please
  7. Echo "*e[32m"
  8.  
  9. C:MakeDir RAM:Env                ; Create ENV:
  10. C:MakeDir RAM:T                    ; Create T:
  11. C:Assign13 ENV: RAM:Env
  12. C:Assign13 T: RAM:T
  13.  
  14. C:ExecVer                    ; Get exec version
  15.  
  16. IF $ExecVer GE 39                ; >39 startup
  17.     Echo "Initialising LCARS environment for Amiga Release 3.x..."
  18.     C:SetPatch30 >NIL:
  19.     C:Assign20 LCARS[1]: SYS:LCARS
  20.     C:Assign20 LCARS[2]: "Disk 2:LCARS" DEFER
  21.     C:Assign20 LCARS[3]: "Disk 3:LCARS" DEFER
  22.     C:Assign20 LCARS[4]: "Disk 4:LCARS" DEFER
  23.   
  24. ELSE
  25.     IF $ExecVer NOT GE 36            ; <36 startup
  26.         Echo "Initialising LCARS environment for Amiga Release 1.x..."
  27.         SetPatch13 >NIL:
  28.         C:PPLibInit
  29.     C:FF >NIL: -0
  30.     C:Copy S:Startup13 T:            ; Assigns
  31.     C:Execute T:Startup13            ; Execute (reduces swaps)
  32.  
  33.     ELSE                    ; Here must be >=36, <39
  34.         C:Echo "Initialising LCARS environment for Amiga Release 2.x..."
  35.     C:SetPatch20 >NIL:
  36.         C:Assign20 LCARS[1]: SYS:LCARS
  37.     C:Assign20 LCARS[2]: "Disk 2:LCARS" DEFER
  38.     C:Assign20 LCARS[3]: "Disk 3:LCARS" DEFER
  39.     C:Assign20 LCARS[4]: "Disk 4:LCARS" DEFER
  40.    ENDIF
  41. ENDIF
  42.  
  43. C:PPLoadSeg >NIL:                ; Patch pp on
  44. C:PPColPatch >NIL: 4                ; Turn off decrunch colors
  45. C:AddBuffers DF0: 15
  46. C:SetMap GB
  47.  
  48. C:MakeDir RAM:LCARS_Data
  49. C:MakeDir RAM:LCARS_Data/MenuFile
  50. C:MakeDir RAM:LCARS_Data/Lists
  51.  
  52. C:Assign13 LCARS: SYS:LCARS
  53. C:Assign13 LCARS_Data: RAM:LCARS_Data
  54.  
  55. C:Copy LCARS:MenuFile/ LCARS_Data:MenuFile/ ALL QUIET
  56. C:Copy LCARS:Lists/#? LCARS_Data:Lists/ QUIET
  57.  
  58. Echo "LCARS Initialised. Activating..."
  59. LCARS:LCARS Contents.MF GL=Startup.GL ML
  60.  
  61. Echo "*nRebooting in 5 seconds..."
  62. Wait 3 SECS
  63. Reset
  64.